home *** CD-ROM | disk | FTP | other *** search
/ Go64! / Go64_2002-06_2002_CSW_Side_A.d64 / calculate sintab (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  118b  |  8 lines
  1. 10 tb=4096
  2. 100 foran=0to2*(NULL)step2*(NULL)/256
  3. 200 y=sin(an)*255+.5
  4. 300 poketb,yand255
  5. 400 x=0:ify<0thenx=255
  6. 500 poketb+256,x
  7. 600 tb=tb+1:next
  8.